| Filename | (eval 28)[C:/tmp64ng/perl/lib/JSON/PP.pm:66] |
| Statements | Executed 162 statements in 15.6ms |
| Eval Invoked At | C:/tmp64ng/perl/lib/JSON/PP.pm line 66 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 54 | 1 | 1 | 15.6ms | 15.6ms | JSON::PP::utf8 |
| 0 | 0 | 0 | 0s | 0s | JSON::PP::get_utf8 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | |||||
| 2 | # spent 15.6ms within JSON::PP::utf8 which was called 54 times, avg 289µs/call:
# 54 times (15.6ms+0s) by CPAN::Meta::Converter::_dclone at line 56 of CPAN/Meta/Converter.pm, avg 289µs/call | ||||
| 3 | 54 | 0s | my $enable = defined $_[1] ? $_[1] : 1; | ||
| 4 | |||||
| 5 | 54 | 15.6ms | if ($enable) { | ||
| 6 | $_[0]->{PROPS}->[P_UTF8] = 1; | ||||
| 7 | } | ||||
| 8 | else { | ||||
| 9 | $_[0]->{PROPS}->[P_UTF8] = 0; | ||||
| 10 | } | ||||
| 11 | |||||
| 12 | 54 | 0s | $_[0]; | ||
| 13 | } | ||||
| 14 | |||||
| 15 | sub get_utf8 { | ||||
| 16 | $_[0]->{PROPS}->[P_UTF8] ? 1 : ''; | ||||
| 17 | } | ||||
| 18 | |||||
| 19 | ; |